home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PWABL10.ZIP
/
BBSLIST.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1995-10-08
|
16KB
|
1,032 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Boolean BOOLEAN002
Boolean BOOLEAN003
Boolean BOOLEAN004
Boolean BOOLEAN005
Boolean BOOLEAN006
Boolean BOOLEAN007
Boolean BOOLEAN008
Boolean BOOLEAN009
Boolean BOOLEAN010
Boolean BOOLEAN011
Boolean BOOLEAN012
Boolean BOOLEAN017
Boolean BOOLEAN018
Boolean BOOLEAN019
Boolean BOOLEAN020
Date DATE001
Date DATE002
String TSTRING001(11)
String TSTRING002(10)
String TSTRING003(10)
String TSTRING004(30)
String TSTRING005(10)
String STRING006
String STRING007
String TSTRING008(6)
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING016
String STRING018
String STRING019
Byte BYTE001
Byte BYTE002
Byte BYTE003
Byte BYTE004
Byte BYTE005
Byte TBYTE006(10)
Byte BYTE007
Byte BYTE008
Byte BYTE009
Byte BYTE010
Byte BYTE011
Byte BYTE012
Byte BYTE013
Byte BYTE014
Byte BYTE015
Byte BYTE016
Byte BYTE017
Byte BYTE018
Byte BYTE019
Int INT001
Int INT002
Int INT003
Declare Function FUNCTION001() Boolean
Declare Procedure PROC001()
Declare Procedure PROC002()
Declare Procedure PROC003()
Declare Procedure PROC004()
Declare Procedure PROC005()
Declare Procedure PROC006()
Declare Procedure PROC007()
Declare Procedure PROC008()
Declare Procedure PROC009()
Declare Procedure PROC010()
Declare Procedure PROC011()
Declare Procedure PROC012()
Declare Procedure PROC013()
Declare Procedure PROC014(Var String STRING014, Var Boolean BOOLEAN013)
Declare Procedure PROC015(String STRING015, Var Boolean BOOLEAN014)
Declare Procedure PROC016(Var String STRING017, Var Boolean BOOLEAN015)
Declare Procedure PROC017(Var Boolean BOOLEAN016)
(null) 001
(null) 002
;------------------------------------------------------------------------------
PROC001()
PROC003()
PROC011()
End
;------------------------------------------------------------------------------
Procedure PROC001()
TSTRING001(1) = "bbsname,C,22,0"
TSTRING001(2) = "bbsnum,C,14,0"
TSTRING001(3) = "bbsnode,C,2,0"
TSTRING001(4) = "bbssysop,C,22,0"
TSTRING001(5) = "bbsnup,C,14,0"
TSTRING001(6) = "bbswarez,C,5,0"
TSTRING001(7) = "bbsgigs,C,5,0"
TSTRING001(8) = "bbsaffil,C,60,0"
TSTRING001(9) = "bbsmisc,C,60,0"
TSTRING001(10) = "bbsadded,C,20,0"
TSTRING001(11) = "bbsdate,D,14,0"
PROC002()
For BYTE003 = 32 To 126
If (BYTE003 == 64) Continue
STRING006 = STRING006 + Chr(BYTE003)
Next
STRING006 = STRING006 + Chr(27)
FOpen 1, PPEPath() + "bbslist.col", 0, 2
For BYTE003 = 1 To 8
FGet 1, TSTRING003(BYTE003)
Next
FClose 1
BYTE007 = ReadLine(PPEPath() + "bbslist.cfg", 1)
For BYTE003 = 1 To 9
TSTRING004(BYTE003) = ReadLine(PPEPath() + "bbslist.cfg", BYTE003 + 1)
Next
TSTRING004(10) = ReadLine(PPEPath() + "bbslist.cfg", 11)
BYTE004 = S2I(TSTRING004(10), 10)
TSTRING004(10) = ReadLine(PPEPath() + "bbslist.cfg", 12)
BYTE005 = S2I(TSTRING004(10), 10)
For BYTE003 = 1 To 10
TSTRING005(BYTE003) = ReadLine(PPEPath() + "bbslist.cfg", BYTE003 + 12)
TBYTE006(BYTE003) = ReadLine(PPEPath() + "bbslist.cfg", BYTE003 + 22)
Next
For BYTE003 = 10 To 30
TSTRING004(BYTE003) = ReadLine(PPEPath() + "bbslist.cfg", BYTE003 + 23)
Next
BYTE001 = 1
BYTE002 = 1
DOpen 0, PPEPath() + "bbslist", 0
EndProc
;------------------------------------------------------------------------------
Procedure PROC003()
String STRING007
Boolean BOOLEAN001
Boolean BOOLEAN002
Byte BYTE008
Byte BYTE009
:LABEL001
If (BOOLEAN002) Goto LABEL004
Cls
DispFile PPEPath() + "bbslist.pcb", 0
For BYTE008 = 1 To 9
AnsiPos BYTE004, BYTE008 + BYTE005
If (BYTE002 == BYTE008) Print TSTRING003(2) , TSTRING004(BYTE008) , TSTRING003(1)
If (!(BYTE002 == BYTE008)) Print TSTRING003(1) , TSTRING004(BYTE008)
Next
BYTE009 = GetX()
AnsiPos BYTE009, BYTE002 + BYTE005
:LABEL002
If (BOOLEAN001) Goto LABEL003
STRING007 = Upper(Inkey())
Delay 1
BOOLEAN001 = 1
Select Case (STRING007)
Case Chr(13)
BOOLEAN001 = 1
Case "V"
BYTE001 = BYTE002
BYTE002 = 1
Case "B"
BYTE001 = BYTE002
BYTE002 = 2
Case "S"
BYTE001 = BYTE002
BYTE002 = 3
Case "D"
BYTE001 = BYTE002
BYTE002 = 4
Case "A"
BYTE001 = BYTE002
BYTE002 = 5
Case "E"
BYTE001 = BYTE002
BYTE002 = 6
Case "R"
BYTE001 = BYTE002
BYTE002 = 7
Case "P"
BYTE001 = BYTE002
BYTE002 = 8
Case "Q", Chr(27)
BYTE001 = BYTE002
BYTE002 = 9
Case "DOWN", "RIGHT"
AnsiPos BYTE004, BYTE002 + BYTE005
Print TSTRING003(1), TSTRING004(BYTE002)
BYTE001 = BYTE002
BYTE002 = BYTE002 + 1
If (BYTE002 > 9) Then
BYTE002 = 1
Endif
AnsiPos BYTE004, BYTE002 + BYTE005
Print TSTRING003(2), TSTRING004(BYTE002), TSTRING003(1)
BOOLEAN001 = 0
Case "UP", "LEFT"
AnsiPos BYTE004, BYTE002 + BYTE005
Print TSTRING003(1), TSTRING004(BYTE002)
BYTE001 = BYTE002
BYTE002 = BYTE002 - 1
If (BYTE002 < 1) Then
BYTE002 = 9
Endif
AnsiPos BYTE004, BYTE002 + BYTE005
Print TSTRING003(2), TSTRING004(BYTE002), TSTRING003(1)
BOOLEAN001 = 0
Case Else
BOOLEAN001 = 0
End Select
Goto LABEL002
:LABEL003
BOOLEAN001 = 0
AnsiPos BYTE004, BYTE001 + BYTE005
Print TSTRING003(1), TSTRING004(BYTE001)
AnsiPos BYTE004, BYTE002 + BYTE005
Print TSTRING003(2), TSTRING004(BYTE002), TSTRING003(1)
AnsiPos 1, 19
Select Case (BYTE002)
Case 1, 2
PROC004()
Case 3
PROC005()
Case 4
PROC006()
Case 5
PROC007()
Case 6
PROC008()
Case 7
PROC009()
Case 8
PROC010()
Case 9
BOOLEAN002 = 1
End Select
Goto LABEL001
:LABEL004
EndProc
;------------------------------------------------------------------------------
Procedure PROC011()
DClose 0
PrintLn
PrintLn "@X08Boards List v1.0 by D", Chr(114), "a", Chr(107), "e (@X09P", Chr(87), "A@X08)."
EndProc
;------------------------------------------------------------------------------
Procedure PROC004()
Int INT002
INT001 = DRecCount(0)
Cls
If (BYTE002 == 2) PrintLn TSTRING003(3) , "╓─────────────────────────────────────────────────────────────────────────────╖"
For INT002 = 1 To INT001
DGo 0, INT002
PROC012()
PROC013()
Next
If (BYTE002 == 2) PrintLn TSTRING003(3) , "╙─────────────────────────────────────────────────────────────────────────────╜@X07"
PrintLn TSTRING003(7), TSTRING004(10), TSTRING003(8), INT001
Wait
EndProc
;------------------------------------------------------------------------------
Procedure PROC005()
Boolean BOOLEAN003
Boolean BOOLEAN004
Boolean BOOLEAN005
String TSTRING008(6)
String STRING009
Byte BYTE010
Byte BYTE011
INT001 = DRecCount(0)
BOOLEAN004 = 0
:LABEL005
If (BOOLEAN003) Goto LABEL006
PROC014(STRING009, BOOLEAN003)
If (BOOLEAN003) Goto LABEL006
STRING009 = Upper(STRING009)
For BYTE010 = 1 To INT001
DGo 0, BYTE010
DGet 0, "bbsname", TSTRING008(1)
DGet 0, "bbsnum", TSTRING008(2)
DGet 0, "bbssysop", TSTRING008(3)
DGet 0, "bbswarez", TSTRING008(4)
DGet 0, "bbsaffil", TSTRING008(5)
DGet 0, "bbsmisc", TSTRING008(6)
BOOLEAN005 = 0
For BYTE011 = 1 To 6
TSTRING008(BYTE011) = Upper(TSTRING008(BYTE011))
If (InStr(TSTRING008(BYTE011), STRING009) <> 0) BOOLEAN005 = 1
Next
If (BOOLEAN005) Then
PROC012()
PROC013()
BOOLEAN004 = 1
Endif
Next
If (BOOLEAN004 == 0) Then
PrintLn
PrintLn TSTRING003(7), TSTRING004(25)
Endif
Wait
BOOLEAN003 = 1
Goto LABEL005
:LABEL006
EndProc
;------------------------------------------------------------------------------
Procedure PROC006()
Byte BYTE012
If (Exist(PPEPath() + "bbslist.pwa")) Delete PPEPath() + "bbslist.pwa"
FCreate 2, PPEPath() + "bbslist.pwa", 2, 0
FPutLn 2, "[ Boards List v1.0 by Drake (PWA) ]"
INT001 = DRecCount(0)
For BYTE012 = 1 To INT001
DGo 0, BYTE012
PROC012()
FPutLn 2, ""
FPutLn 2, "╓─────────────────────────────────────────────────────────────────────────────╖"
FPutLn 2, "║ [BOARD]: ", TSTRING002(1), " [NUM]: ", TSTRING002(2), " [#RD NODES]: ", TSTRING002(3), " ║"
FPutLn 2, "║ [STAFF]: ", TSTRING002(4), " [NUP]: ", TSTRING002(5), " [AGE LIMIT]: ", TSTRING002(6), "║"
FPutLn 2, "║ [ADDED BY]: ", TSTRING002(10), " [UPDATED]: ", DATE001, " [#GIGS]: ", TSTRING002(7), " ║"
FPutLn 2, "║ [AFFILIATIONS]: ", TSTRING002(8), "║"
FPutLn 2, "║ [MISC COMMENT]: ", TSTRING002(9), "║"
FPutLn 2, "╙─────────────────────────────────────────────────────────────────────────────╜"
Next
FPutLn TSTRING003(7), TSTRING004(10), TSTRING003(8), INT001
FClose 2
Flag PPEPath() + "bbslist.pwa"
Download ""
Wait
EndProc
;------------------------------------------------------------------------------
Procedure PROC007()
Boolean BOOLEAN006
Byte BYTE013
For BYTE013 = 1 To 9
TSTRING002(BYTE013) = ""
Next
:LABEL007
If (BOOLEAN006) Goto LABEL009
PROC014(TSTRING002(1), BOOLEAN006)
If (BOOLEAN006) Goto LABEL009
PROC015(TSTRING002(1), BOOLEAN006)
If (BOOLEAN006) Goto LABEL009
Cls
TSTRING002(10) = U_Name()
DATE001 = Date()
001 = ToDDate(DATE001)
PROC013()
AnsiPos 44, 3
InputStr "_", TSTRING002(2), TSTRING003(6), 14, STRING006, 2 + 4096
AnsiPos 74, 3
InputStr "_", TSTRING002(3), 7, 2, STRING006, 2 + 4096
AnsiPos 12, 4
InputStr "_", TSTRING002(4), 7, 22, STRING006, 2 + 4096
AnsiPos 44, 4
InputStr "_", TSTRING002(5), 7, 14, STRING006, 2 + 4096
AnsiPos 74, 4
InputStr "_", TSTRING002(6), 7, 5, STRING006, 2 + 4096
AnsiPos 70, 5
InputStr "_", TSTRING002(7), 7, 5, STRING006, 2 + 4096
AnsiPos 19, 6
InputStr "_", TSTRING002(8), 7, 60, STRING006, 2 + 4096
AnsiPos 19, 7
InputStr "_", TSTRING002(9), 7, 60, STRING006, 2 + 4096
AnsiPos 1, 9
If (FUNCTION001()) Goto LABEL008
AnsiPos 1, 10
PrintLn TSTRING003(7), TSTRING004(12)
Wait
BOOLEAN006 = 1
Goto LABEL009
:LABEL008
DClose 0
DOpen 0, PPEPath() + "bbslist", 0
DNew 0
DPut 0, "bbsname", TSTRING002(1)
DPut 0, "bbsnum", TSTRING002(2)
DPut 0, "bbsnode", TSTRING002(3)
DPut 0, "bbssysop", TSTRING002(4)
DPut 0, "bbsnup", TSTRING002(5)
DPut 0, "bbswarez", TSTRING002(6)
DPut 0, "bbsgigs", TSTRING002(7)
DPut 0, "bbsaffil", TSTRING002(8)
DPut 0, "bbsmisc", TSTRING002(9)
DPut 0, "bbsadded", TSTRING002(10)
DPut 0, "bbsdate", 001
DAdd 0
INT001 = DRecCount(0)
PrintLn
PrintLn TSTRING003(7), TSTRING004(13)
Wait
BOOLEAN006 = 1
Goto LABEL007
:LABEL009
EndProc
;------------------------------------------------------------------------------
Procedure PROC008()
Boolean BOOLEAN007
Boolean BOOLEAN008
Boolean BOOLEAN009
String STRING010
String STRING011
Int INT003
Byte BYTE014
BOOLEAN009 = 0
BOOLEAN008 = 0
:LABEL010
If (BOOLEAN009) Goto LABEL016
PROC014(STRING010, BOOLEAN009)
If (BOOLEAN009) Goto LABEL016
PROC016(STRING010, BOOLEAN009)
If (BOOLEAN009) Goto LABEL016
PROC012()
PrintLn
PROC013()
PROC017(BOOLEAN009)
If (BOOLEAN009) Goto LABEL016
If (FUNCTION001()) Goto LABEL011
BOOLEAN009 = 1
Goto LABEL016
:LABEL011
001 = Date()
INT003 = 1
:LABEL012
If (BOOLEAN008) Goto LABEL015
BOOLEAN007 = 0
STRING011 = ""
PROC012()
Cls
PROC013()
PrintLn
Print TSTRING003(7), TSTRING004(15)
For BYTE014 = 1 To 10
AnsiPos TBYTE006(BYTE014), 12
Print TSTRING003(1), TSTRING005(BYTE014)
Next
AnsiPos TBYTE006(INT003), 12
Print TSTRING003(2), TSTRING005(INT003), TSTRING003(1)
:LABEL013
If (BOOLEAN007) Goto LABEL014
STRING011 = Upper(Inkey())
Delay 1
If (STRING011 == Chr(13)) Then
BOOLEAN007 = 1
Endif
Select Case (STRING011)
Case "RIGHT", "DOWN"
AnsiPos TBYTE006(INT003), 12
Print TSTRING003(1), TSTRING005(INT003)
INT003 = INT003 + 1
If (INT003 > 10) Then
INT003 = 1
Endif
AnsiPos TBYTE006(INT003), 12
Print TSTRING003(2), TSTRING005(INT003), TSTRING003(1)
Case "LEFT", "UP"
AnsiPos TBYTE006(INT003), 12
Print TSTRING003(1), TSTRING005(INT003)
INT003 = INT003 - 1
If (INT003 < 1) Then
INT003 = 10
Endif
AnsiPos TBYTE006(INT003), 12
Print TSTRING003(2), TSTRING005(INT003), TSTRING003(1)
End Select
Goto LABEL013
:LABEL014
Select Case (INT003)
Case 1
AnsiPos 12, 3
Print " "
AnsiPos 12, 3
InputStr "_", TSTRING002(1), 7, 22, STRING006, 8
DPut 0, "bbsname", TSTRING002(1)
Case 2
AnsiPos 44, 3
Print " "
AnsiPos 44, 3
InputStr "_", TSTRING002(2), 7, 14, STRING006, 2 + 4096
DPut 0, "bbsnum", TSTRING002(2)
Case 3
AnsiPos 74, 3
Print " "
AnsiPos 74, 3
InputStr "_", TSTRING002(3), 7, 2, STRING006, 2 + 4096
DPut 0, "bbsnode", TSTRING002(3)
Case 4
AnsiPos 12, 4
Print " "
AnsiPos 12, 4
InputStr "_", TSTRING002(4), 7, 22, STRING006, 2 + 4096
DPut 0, "bbssysop", TSTRING002(4)
Case 5
AnsiPos 44, 4
Print " "
AnsiPos 44, 4
InputStr "_", TSTRING002(5), 7, 14, STRING006, 2 + 4096
DPut 0, "bbsnup", TSTRING002(5)
Case 6
AnsiPos 74, 4
Print " "
AnsiPos 74, 4
InputStr "_", TSTRING002(6), 7, 5, STRING006, 2 + 4096
DPut 0, "bbswarez", TSTRING002(6)
Case 7
AnsiPos 70, 5
Print " "
AnsiPos 70, 5
InputStr "_", TSTRING002(7), 7, 5, STRING006, 2 + 4096
DPut 0, "bbsgigs", TSTRING002(7)
Case 8
AnsiPos 19, 6
Print " "
AnsiPos 19, 6
InputStr "_", TSTRING002(8), 7, 60, STRING006, 2 + 4096
DPut 0, "bbsaffil", TSTRING002(8)
Case 9
AnsiPos 19, 7
Print " "
AnsiPos 19, 7
InputStr "_", TSTRING002(9), 7, 60, STRING006, 2 + 4096
DPut 0, "bbsmisc", TSTRING002(9)
Case 10
BOOLEAN009 = 1
BOOLEAN008 = 1
Goto LABEL015
End Select
Goto LABEL012
:LABEL015
Goto LABEL010
:LABEL016
DATE001 = Date()
001 = ToDDate(DATE001)
DPut 0, "bbsdate", 001
EndProc
;------------------------------------------------------------------------------
Procedure PROC009()
Boolean BOOLEAN010
String STRING012
:LABEL017
If (BOOLEAN010) Goto LABEL019
PROC014(STRING012, BOOLEAN010)
If (BOOLEAN010) Goto LABEL019
PROC016(STRING012, BOOLEAN010)
If (BOOLEAN010) Goto LABEL019
PROC012()
PrintLn
PROC013()
PrintLn
PROC017(BOOLEAN010)
If (BOOLEAN010) Goto LABEL019
If (FUNCTION001()) Goto LABEL018
BOOLEAN010 = 1
Goto LABEL019
:LABEL018
If (Exist(PPEPath() + "name.ndx")) Delete PPEPath() + "name.ndx"
DnCreate 0, PPEPath() + "name", "bbsname"
DnOpen 0, PPEPath() + "name"
DTag 0, "name"
DSeek 0, STRING012
DDelete 0
DnCloseAll 0
DPack 0
INT001 = DRecCount(0)
PrintLn
PrintLn TSTRING003(7), TSTRING004(17)
Wait
BOOLEAN010 = 1
Goto LABEL017
:LABEL019
EndProc
;------------------------------------------------------------------------------
Procedure PROC010()
Boolean BOOLEAN011
String STRING013
(null) 002
Date DATE002
Byte BYTE015
INT001 = DRecCount(0)
BOOLEAN011 = 0
:LABEL020
If (BOOLEAN011) Goto LABEL022
If (CurSec() >= SysopSec()) Goto LABEL021
PrintLn TSTRING003(7), TSTRING004(26)
BOOLEAN011 = 1
Goto LABEL022
:LABEL021
Print TSTRING003(7), TSTRING004(27)
Input "_", DATE002
PrintLn
Print TSTRING003(7), TSTRING004(28)
Input "_", STRING013
PrintLn
If (Upper(STRING013) <> "YES") Then
PrintLn TSTRING003(7), TSTRING004(29)
BOOLEAN011 = 1
Wait
Else
PrintLn TSTRING003(7), TSTRING004(30)
If (Exist(PPEPath() + "name.ndx")) Delete PPEPath() + "name.ndx"
DnCreate 0, PPEPath() + "name", "bbsname"
DnOpen 0, PPEPath() + "name"
For BYTE015 = 1 To INT001
DGo 0, BYTE015
DGet 0, "bbsdate", 002
If (002 < DATE002) Then
DTag 0, "name"
DSeek 0, BYTE015
DDelete 0
Endif
Next
DnCloseAll 0
DPack 0
BOOLEAN011 = 1
Wait
Goto LABEL020
Endif
:LABEL022
EndProc
;------------------------------------------------------------------------------
Procedure PROC002()
Boolean BOOLEAN012
:LABEL023
If (BOOLEAN012) Goto LABEL024
If (Exist(PPEPath() + "bbslist.dbf")) Then
BOOLEAN012 = 1
Else
DCreate 0, PPEPath() + "bbslist", 0, TSTRING001(BOOLEAN000)
DClose 0
DOpen 0, PPEPath() + "bbslist", 0
DNew 0
DPut 0, "bbsname", "NUCLEAR INSEMINATION"
DPut 0, "bbsnum", "508-480-8844"
DPut 0, "bbsnode", "4"
DPut 0, "bbssysop", "Drake"
DPut 0, "bbsnup", "None"
DPut 0, "bbswarez", "0-3"
DPut 0, "bbsgigs", "6.2"
DPut 0, "bbsaffil", "Pantera/Drink Or Die/Pinnacle/Rigid/Dragon/Htc/Drift/Vel"
DPut 0, "bbsmisc", "If you dont trade, then dont call!"
DPut 0, "bbsadded", "DRAKE"
DATE001 = Date()
001 = ToDDate(DATE001)
DPut 0, "bbsdate", 001
DAdd 0
DClose 0
INT001 = DRecCount(0)
Goto LABEL023
Endif
:LABEL024
EndProc
;------------------------------------------------------------------------------
Procedure PROC012()
DGet 0, "bbsname", TSTRING002(1)
DGet 0, "bbsnum", TSTRING002(2)
DGet 0, "bbsnode", TSTRING002(3)
DGet 0, "bbssysop", TSTRING002(4)
DGet 0, "bbsnup", TSTRING002(5)
DGet 0, "bbswarez", TSTRING002(6)
DGet 0, "bbsgigs", TSTRING002(7)
DGet 0, "bbsaffil", TSTRING002(8)
DGet 0, "bbsmisc", TSTRING002(9)
DGet 0, "bbsadded", TSTRING002(10)
DGet 0, "bbsdate", 001
EndProc
;------------------------------------------------------------------------------
Procedure PROC013()
DATE001 = 001
If (BYTE002 > 2) PrintLn
If (BYTE002 <> 2) PrintLn TSTRING003(3) , "╓─────────────────────────────────────────────────────────────────────────────╖"
PrintLn TSTRING003(3), "║ ", TSTRING003(4), "[", TSTRING003(5), "BOARD", TSTRING003(4), "]: ", TSTRING003(6), TSTRING002(1), " @POS:35@ ", TSTRING003(4), "[", TSTRING003(5), "NUM", TSTRING003(4), "]: ", TSTRING003(6), TSTRING002(2), " @POS:59@ ", TSTRING003(4), "[", TSTRING003(5), "#RD NODES", TSTRING003(4), "]: ", TSTRING003(6), TSTRING002(3), " @POS:79@", TSTRING003(3), "║"
If (BYTE002 <> 2) Then
PrintLn TSTRING003(3), "║ ", TSTRING003(4), "[", TSTRING003(5), "STAFF", TSTRING003(4), "]: ", TSTRING003(6), TSTRING002(4), " @POS:35@ ", TSTRING003(4), "[", TSTRING003(5), "NUP", TSTRING003(4), "]: ", TSTRING003(6), TSTRING002(5), " @POS:59@ ", TSTRING003(4), "[", TSTRING003(5), "AGE LIMIT", TSTRING003(4), "]: ", TSTRING003(6), TSTRING002(6), "@POS:79@", TSTRING003(3), "║"
PrintLn TSTRING003(3), "║ ", TSTRING003(4), "[", TSTRING003(5), "ADDED BY", TSTRING003(4), "]: ", TSTRING003(6), TSTRING002(10), "@POS:35@ ", TSTRING003(4), "[", TSTRING003(5), "UPDATED", TSTRING003(4), "]: ", TSTRING003(6), DATE001, " @POS:59@ ", TSTRING003(4), "[", TSTRING003(5), "#GIGS", TSTRING003(4), "]: ", TSTRING003(6), TSTRING002(7), " @POS:79@", TSTRING003(3), "║"
PrintLn TSTRING003(3), "║ ", TSTRING003(4), "[", TSTRING003(5), "AFFILIATIONS", TSTRING003(4), "]: ", TSTRING003(6), TSTRING002(8), "@POS:79@", TSTRING003(3), "║"
PrintLn TSTRING003(3), "║ ", TSTRING003(4), "[", TSTRING003(5), "MISC COMMENT", TSTRING003(4), "]: ", TSTRING003(6), TSTRING002(9), "@POS:79@", TSTRING003(3), "║"
PrintLn TSTRING003(3), "╙─────────────────────────────────────────────────────────────────────────────╜@X07"
Endif
EndProc
;------------------------------------------------------------------------------
Procedure PROC014(Var String STRING014, Var Boolean BOOLEAN013)
STRING014 = ""
Print TSTRING003(7)
InputStr TSTRING004(18), STRING014, 7, 22, STRING006, 8
If (Len(STRING014) < 2) Then
PrintLn
PrintLn TSTRING003(7), TSTRING004(19)
Wait
BOOLEAN013 = 1
Else
BOOLEAN013 = 0
Endif
EndProc
;------------------------------------------------------------------------------
Procedure PROC015(String STRING015, Var Boolean BOOLEAN014)
String STRING016
Byte BYTE016
While ((Len(STRING015) < 22)) STRING015 = STRING015 + " "
INT001 = DRecCount(0)
BOOLEAN014 = 0
For BYTE016 = 1 To INT001
DGo 0, BYTE016
DGet 0, "bbsname", STRING016
If (Upper(STRING015) == STRING016) Then
BOOLEAN014 = 1
PrintLn
PrintLn TSTRING003(8), TSTRING004(20)
Wait
TSTRING002(1) = ""
Break
Endif
Next
For BYTE016 = 2 To 10
TSTRING002(BYTE016) = ""
Next
001 = Date()
EndProc
;------------------------------------------------------------------------------
Procedure PROC016(Var String STRING017, Var Boolean BOOLEAN015)
If (Exist(PPEPath() + "name.ndx")) Delete PPEPath() + "name.ndx"
DnCreate 0, PPEPath() + "name", "bbsname"
DnOpen 0, PPEPath() + "name"
DTag 0, "name"
DSeek 0, STRING017
If (DSeek(0, STRING017)) Goto LABEL025
PrintLn
PrintLn TSTRING003(7), TSTRING004(21)
Wait
BOOLEAN015 = 1
Goto LABEL026
:LABEL025
BOOLEAN015 = 0
:LABEL026
DnCloseAll 0
EndProc
;------------------------------------------------------------------------------
Procedure PROC017(Var Boolean BOOLEAN016)
Boolean BOOLEAN017
String STRING018
Byte BYTE017
STRING018 = String(U_Name())
If ((CurSec() >= SysopSec()) || (CurSec() >= BYTE007)) Then
BOOLEAN017 = 1
Else
For BYTE017 = 1 To 24
If (TSTRING002(10) == STRING018) Then
BOOLEAN017 = 1
Continue
Endif
STRING018 = STRING018 + " "
Next
Endif
If (BOOLEAN017) Goto LABEL027
PrintLn
PrintLn TSTRING003(7), TSTRING004(22)
PrintLn TSTRING003(7), TSTRING004(23)
PrintLn TSTRING003(7), TSTRING004(24)
PrintLn
Wait
BOOLEAN016 = 1
Goto LABEL028
:LABEL027
BOOLEAN016 = 0
:LABEL028
EndProc
;------------------------------------------------------------------------------
Function FUNCTION001() Boolean
Boolean BOOLEAN019
Boolean BOOLEAN020
String STRING019
Byte BYTE018
Byte BYTE019
BOOLEAN020 = 0
BOOLEAN019 = 1
Print TSTRING003(7), TSTRING004(11)
BYTE018 = GetX()
BYTE019 = GetY()
Print "[Yes] [No]"
:LABEL029
If (BOOLEAN020) Goto LABEL030
If (BOOLEAN019) Then
AnsiPos BYTE018, BYTE019
Print TSTRING003(2), "[Yes]", TSTRING003(1), " [No]@X07"
Else
AnsiPos BYTE018, BYTE019
Print TSTRING003(1), "[Yes] ", TSTRING003(2), "[No]@X07"
Endif
STRING019 = ""
While (!(((((STRING019 == "RIGHT") || (STRING019 == "LEFT")) || (STRING019 == "UP")) || (STRING019 == "DOWN")) || (STRING019 == Chr(13)))) STRING019 = Upper(Inkey())
Delay 1
Select Case (STRING019)
Case "RIGHT", "DOWN"
If (BOOLEAN019) Then
BOOLEAN019 = 0
Else
BOOLEAN019 = 1
Endif
Case "LEFT", "UP"
If (BOOLEAN019) Then
BOOLEAN019 = 0
Else
BOOLEAN019 = 1
Endif
Case Chr(13)
BOOLEAN020 = 1
End Select
Goto LABEL029
:LABEL030
FUNCTION001 = BOOLEAN019
EndFunc
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 4 Cls
; 12 Wait
; 172 Goto
; 166 Let
; 31 Print
; 40 PrintLn
; 109 If
; 1 DispFile
; 2 Input
; 1 FCreate
; 1 FOpen
; 2 FClose
; 1 FGet
; 10 FPutLn
; 4 Delete
; 18 InputStr
; 3 Delay
; 45 AnsiPos
; 1 Flag
; 1 Download
; 17 EndProc
; 1 EndFunc
; 1 DCreate
; 3 DOpen
; 4 DClose
; 2 DPack
; 3 DnCreate
; 3 DnOpen
; 3 DnCloseAll
; 2 DNew
; 2 DAdd
; 5 DGo
; 2 DDelete
; 3 DTag
; 3 DSeek
; 19 DGet
; 32 DPut
;
;
; ■ Functions used :
;
; 80 +
; 2 -
; 57 ==
; 4 <>
; 21 <
; 16 <=
; 3 >
; 35 >=
; 89 !
; 32 &&
; 29 ||
; 2 Len(
; 7 Upper()
; 10 Chr()
; 1 InStr()
; 5 Date()
; 2 U_Name()
; 3 Inkey()
; 1 String()
; 30 PPEPath()
; 7 ReadLine()
; 2 SysopSec()
; 3 CurSec()
; 5 Exist()
; 2 S2I()
; 2 GetX()
; 1 GetY()
; 8 DRecCount()
; 3 ToDDate()
; 1 DSeek()
;
;------------------------------------------------------------------------------
;
; Analysis flags : fs
;
; f - Flag files for download ■ 3
; This may be normal if a PPE needs to send some files, but since
; this statement allows flagging of any file on the hard disk, you
; have to be carefull. Check!
; ■ Search for : FLAG
;
; s - Sysop level access ■ 5
; Program is reading the sysop access level, this may be normal
; but still it is very suspect. It is the best way to give a user
; all priviledges. Check!
; ■ Search for : SYSOPSEC()
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 16 For/Next
; 0 While/EndWhile
; 18 If/Then or If/Then/Else
; 5 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------